home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / gfreq29.lha / GFreq2.9 / update.rexx < prev   
OS/2 REXX Batch file  |  1995-11-05  |  1KB  |  57 lines
  1. /* Modifies v2.3 .acf-files to v2.4 */
  2. /* Start with "rx update.rexx <path to your accounting directory> */
  3. /* Must end with a '/' or a ':' */
  4. /* Ex: "rx update.rexx Mail:GFreq/Accounts/ */
  5. /* Tank's to Tomas Karlsson 2:201/328.2@fidonet */
  6.  
  7. IF ~SHOW('L','rexxsupport.library') THEN
  8. ADDLIB('rexxsupport.library',0,-30,0)
  9.  
  10. PARSE ARG dir
  11.  
  12. last = RIGHT(dir,1)
  13.  
  14. IF last ~= '/' THEN ok=1
  15. IF ok =1 & last = ':' THEN ok=0
  16.  
  17. IF ok = 1 THEN DO
  18.     SAY 'You forgot "/" or ":"in arg.'
  19.     EXIT
  20. END
  21.  
  22. SAY "Hey you, don't go for coffe. I don't like coffe."
  23.  
  24. files = SHOWDIR(dir,F,'-')
  25. DO UNTIL files = ''
  26.     PARSE VAR files file '-' files
  27.     if right(file,4) = '.acf' then do
  28.  
  29.         IF ~OPEN(f,dir''file,'R') THEN DO
  30.             SAY "Can't read" dir''file
  31.             EXIT
  32.         END
  33.  
  34.         IF ~OPEN(n,'ram:'file,'W') THEN DO
  35.             SAY "Can't write to Ram:"file
  36.             EXIT
  37.         END
  38.  
  39.         SAY 'Procesing 'dir''file
  40.  
  41.         DO WHILE ~EOF(f)
  42.             line = READLN(f)
  43.             IF line = '' THEN BREAK
  44.     WRITELN(n,LEFT(SPACE(SUBWORD(line,1,3),1,'*')'*'STRIP(SUBWORD(line,4,4),'B','"')'*',51,' '))
  45.         END
  46.  
  47.         CALL CLOSE(f)
  48.         CALL CLOSE(n)
  49.  
  50.         SAY 'Copy Ram:'file 'to' dir
  51.  
  52.         ADDRESS COMMAND 'COPY Ram:'file TO DIR''FILE
  53.     END
  54. END
  55. ADDRESS COMMAND 'DELETE ram:*.acf'
  56. SAY sourceline(2) /* Dont remove this*/
  57.